home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 September / 1994-09b.d64 / power supply (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  141 lines
  1. 5 rem copyright 1994 - compute publications intl ltd - all rights reserved
  2. 10 rem power supply comp value selector
  3. 20 poke 53280,0:poke 53281,0:poke 646,3
  4. 30 print"[147]"
  5. 40 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  6. 50 print"[221]                                     [221]"
  7. 60 print"[221]      for screen display, type s     [221]"
  8. 70 print"[221]                                     [221]"
  9. 80 print"[221]      for printer output, type p     [221]"
  10. 90 print"[221]                                     [221]"
  11. 100 print"[221]          to quit, type q            [221]"
  12. 110 print"[221]                                     [221]"
  13. 120 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  14. 130 get d$:if d$="" then 130
  15. 140 if d$="s" then 170
  16. 150 if d$="p" then 500
  17. 160 if d$="q" then end
  18. 170 gosub 5000
  19. 180 on t goto 1000,2000,3000
  20. 500 print "[147]"
  21. 510 print"the printer option prints a table of"
  22. 520 print
  23. 530 print"values for various transformers"
  24. 540 print
  25. 550 print"type of circuit:"
  26. 560 print
  27. 570 gosub 5000
  28. 580 on t goto 1500,2500,3500
  29. 1000 print "[147]"
  30. 1010 print"full wave bridge, capacitor input filter"
  31. 1020 input"transformer rms voltage <0 to return to main menu>";v
  32. 1030 if v=0 then 30
  33. 1040 print:input"transformer current rating (amps)";c
  34. 1050 gosub 9000
  35. 1060 oc=int(c/1.8*10)
  36. 1070 gosub 6000
  37. 1080 printtab(3);v$;tab(18);rv$;tab(34);dv$
  38. 1090 gosub 7000
  39. 1100 printtab(7);cv$;tab(29);oc/10
  40. 1110 print:print:print:print:goto 1010
  41. 1500 print "[147]"
  42. 1510 input"minimum transformer voltage";m
  43. 1520 t$="full wave bridge"
  44. 1530 gosub 8000
  45. 1540 for v=m to m+50
  46. 1550 gosub 9000
  47. 1560 print#4,tab(4);v$;tab(21-len(v$));rv$;
  48. 1565 print#4,tab(20-len(rv$));dv$;tab(25-len(dv$));cv$
  49. 1570 print#4,tab(20-len(rv$));dv$;tab(25-len(dv$));cv$
  50. 1580 next v
  51. 1590 print#4,chr$(12):close4:goto 500
  52. 2000 print "[147]"
  53. 2010 print"full wave center tapped, capacitor"
  54. 2020 print"input filter"
  55. 2030 print:print"transformer rms voltage (entire "
  56. 2040 input"secondary) <0 to return to main menu>";v
  57. 2050 if v=0 then 30
  58. 2060 print:input"transformer current rating (amps)";c
  59. 2070 gosub 9000
  60. 2080 oc=int(c/1.2*10)
  61. 2090 gosub 6000
  62. 2100 printtab(3);v$;tab(19);sv$;tab(34)ev$
  63. 2110 gosub 7000
  64. 2120 printtab(7);cv$;tab(29);oc/10
  65. 2130 print:print:print:print:goto 2010
  66. 2500 print "[147]"
  67. 2510 print"minimum transformer voltage":print
  68. 2520 input"(entire secondary)";m:if m="" then 2515
  69. 2530 t$="full wave center tap"
  70. 2540 gosub 8000
  71. 2550 for v=m to m+50
  72. 2560 gosub 9000
  73. 2570 print#4,tab(4);v$;tab(21-len(v$));sv$;
  74. 2580 print#4,tab(20-len(sv$));ev$;tab(25-len(ev$));fv$
  75. 2590 next v
  76. 2600 print#4,chr$(12):close 4:goto 500
  77. 3000 print "[147]"
  78. 3010 print:print"full wave bridge center tap"
  79. 3020 print"capacitor input filter"
  80. 3030 print
  81. 3040 print"transformer rms voltage"
  82. 3050 input"(entire secondary) <0 to return to main menu>";v
  83. 3060 if v=0 then 30
  84. 3070 print:print
  85. 3080 input"transformer current rating (amps)";c
  86. 3090 gosub 9000
  87. 3100 oc=int((c/1.8)/2*10)
  88. 3110 gosub 6000
  89. 3120 printtab(3);v$;tab(18)"+/-";sv$;tab(34);ev$
  90. 3130 gosub 7000
  91. 3140 printtab(7);cv$;tab(28);"+/-"oc/10
  92. 3150 print:print:print:print:goto 3010
  93. 3500 print "[147]"
  94. 3510 print"minimum transformer voltage":print
  95. 3520 input"(entire secondary)";m
  96. 3530 t$="full wave bridge center tap"
  97. 3540 gosub 8000
  98. 3550 for v=m to m+50
  99. 3560 gosub 9000
  100. 3570 print#4,tab(4);v$;tab(21-len(v$))"+/-";sv$;
  101. 3580 print#4,tab(16-len(sv$));ev$;tab(26-len(ev$));fv$
  102. 3590 next v
  103. 3600 print#4,chr$(12):close4:goto 500
  104. 5000 rem subroutines
  105. 5100 print "[147]"
  106. 5200 print"power supply type":print
  107. 5300 print"    full wave bridge (1)"
  108. 5400 print"    full wave center tap (2)"
  109. 5500 print"    full wave bridge center tap (3)":print
  110. 5600 print" all using capacitor input filtering":print
  111. 5700 print"select type 1, 2, 3, or"
  112. 5800 input"4 to return to main menu";t
  113. 5900 if t=0 then 5900:if t=4 then goto 30:return
  114. 6000 print"[147]"
  115. 6100 print"transformer";tab(20);"dc";tab(34);"diode"
  116. 6200 print"voltage(rms)";tab(18);"volts";tab(35);"piv"
  117. 6300 print
  118. 6400 return
  119. 7000 print:print:
  120. 7100 printtab(5);"capacitor";tab(30);"dc"
  121. 7200 printtab(6);"voltage";tab(25);"current(amps)"
  122. 7300 return
  123. 8000 close4:open4,4
  124. 8100 print#4:print#4:print#4
  125. 8200 print#4,tab(30-len(t$)/2),t$
  126. 8300 print#4,tab(18),"capacitor input filter"
  127. 8400 print#4
  128. 8500 print#4,tab(2)"transformer";tab(14)"dc";tab(15)"diode";
  129. 8600 print#4,tab(19)"capacitor"
  130. 8700 print#4,tab(2)"voltage(rms)";tab(11)"volts";tab(15)"piv";
  131. 8800 print#4,tab(21)"voltage"
  132. 8900 return
  133. 9000 rv=int((v*.95*1.414)+.04):rv$=str$(rv)
  134. 9100 sv=rv/2:sv$=str$(sv)
  135. 9200 dv=int(2*rv):dv$=str$(dv)
  136. 9300 ev=int(4*sv):ev$=str$(ev)
  137. 9400 fv=int(1.3*sv):fv$=str$(fv)
  138. 9500 cv=int(1.3*rv):cv$=str$(cv)
  139. 9600 v$=str$(v)
  140. 9700 return
  141.